home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Combo_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  7.3 KB  |  223 lines
  1. VERSION 5.00
  2. Object = "{2E3C02B4-31BB-4AAF-B6C9-4112F96D9071}#1.0#0"; "CIAXPAutoCombo.ocx"
  3. Object = "{E0C48EF3-1948-4B0F-B769-0D64B1F2AD6B}#1.1#0"; "ciaXPStdCombo.ocx"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4830
  7.    ClientLeft      =   60
  8.    ClientTop       =   450
  9.    ClientWidth     =   7320
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   4830
  13.    ScaleWidth      =   7320
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin ciaXPAutoCombo.ciaXPAutoComboBox cboAuto 
  16.       Height          =   285
  17.       Left            =   2070
  18.       TabIndex        =   5
  19.       Top             =   3360
  20.       Width           =   2445
  21.       _ExtentX        =   4313
  22.       _ExtentY        =   503
  23.       UseNeutralColors=   -1  'True
  24.       LeftMargin      =   4
  25.       RequiredField   =   -1  'True
  26.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   400
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       Alignment       =   0
  36.       RightToLeft     =   0   'False
  37.       MousePointer    =   0
  38.       MouseIcon       =   "Form1.frx":0000
  39.       BorderColor     =   12164479
  40.    End
  41.    Begin ciaXPStdCombo.ciaXPStdComboBox cbo 
  42.       Height          =   285
  43.       Index           =   0
  44.       Left            =   2070
  45.       TabIndex        =   3
  46.       Top             =   210
  47.       Width           =   2445
  48.       _ExtentX        =   4313
  49.       _ExtentY        =   503
  50.       LeftMargin      =   12
  51.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   8.25
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Alignment       =   0
  61.       RightToLeft     =   0   'False
  62.       MousePointer    =   0
  63.       MouseIcon       =   "Form1.frx":001C
  64.       BorderColor     =   12164479
  65.       Text            =   "Text 1"
  66.       LicValid        =   -1  'True
  67.    End
  68.    Begin ciaXPStdCombo.ciaXPStdComboBox cbo 
  69.       Height          =   390
  70.       Index           =   1
  71.       Left            =   2070
  72.       TabIndex        =   4
  73.       Top             =   675
  74.       Width           =   2445
  75.       _ExtentX        =   4313
  76.       _ExtentY        =   688
  77.       LeftMargin      =   11
  78.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   12
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Alignment       =   0
  88.       RightToLeft     =   0   'False
  89.       MousePointer    =   0
  90.       MouseIcon       =   "Form1.frx":0038
  91.       BorderColor     =   12164479
  92.       Theme           =   1
  93.       Text            =   "Text 1"
  94.       LicValid        =   -1  'True
  95.    End
  96.    Begin ciaXPStdCombo.ciaXPStdComboBox cbo 
  97.       Height          =   525
  98.       Index           =   2
  99.       Left            =   2070
  100.       TabIndex        =   6
  101.       Top             =   1845
  102.       Width           =   2445
  103.       _ExtentX        =   4313
  104.       _ExtentY        =   926
  105.       RequiredField   =   -1  'True
  106.       UseNeutralColors=   -1  'True
  107.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   18
  110.          Charset         =   0
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Alignment       =   0
  117.       RightToLeft     =   0   'False
  118.       MousePointer    =   0
  119.       MouseIcon       =   "Form1.frx":0054
  120.       BorderColor     =   12164479
  121.       Theme           =   2
  122.       Text            =   "Text 1"
  123.       LicValid        =   -1  'True
  124.    End
  125.    Begin ciaXPStdCombo.ciaXPStdComboBox cbo 
  126.       Height          =   525
  127.       Index           =   3
  128.       Left            =   2070
  129.       TabIndex        =   7
  130.       Top             =   1185
  131.       Width           =   2445
  132.       _ExtentX        =   4313
  133.       _ExtentY        =   926
  134.       RequiredField   =   -1  'True
  135.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   18
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Alignment       =   0
  145.       RightToLeft     =   0   'False
  146.       MousePointer    =   0
  147.       MouseIcon       =   "Form1.frx":0070
  148.       BorderColor     =   12164479
  149.       Theme           =   2
  150.       Text            =   "Text 1"
  151.       LicValid        =   -1  'True
  152.    End
  153.    Begin VB.Label Label3 
  154.       AutoSize        =   -1  'True
  155.       Caption         =   "Auto Complete Style with UseNeutralColors"
  156.       Height          =   510
  157.       Left            =   4755
  158.       TabIndex        =   2
  159.       Top             =   3300
  160.       Width           =   1575
  161.       WordWrap        =   -1  'True
  162.    End
  163.    Begin VB.Label Label2 
  164.       AutoSize        =   -1  'True
  165.       Caption         =   "With RequiredField and UseNeutralColors"
  166.       Height          =   585
  167.       Left            =   4755
  168.       TabIndex        =   1
  169.       Top             =   1905
  170.       Width           =   1605
  171.       WordWrap        =   -1  'True
  172.    End
  173.    Begin VB.Label Label1 
  174.       AutoSize        =   -1  'True
  175.       Caption         =   "Standard Styles"
  176.       Height          =   195
  177.       Left            =   4755
  178.       TabIndex        =   0
  179.       Top             =   765
  180.       Width           =   1110
  181.    End
  182. Attribute VB_Name = "Form1"
  183. Attribute VB_GlobalNameSpace = False
  184. Attribute VB_Creatable = False
  185. Attribute VB_PredeclaredId = True
  186. Attribute VB_Exposed = False
  187. Private Sub chk_Click()
  188. End Sub
  189. Private Sub Form_Load()
  190. Dim i As Integer
  191. For i = 0 To 2
  192.     cbo(i).AddItem "ardvark"
  193.     cbo(i).ItemData(0) = 11
  194.     cbo(i).AddItem "apple"
  195.     cbo(i).ItemData(cbo(i).NewIndex) = 22
  196.     cbo(i).AddItem "august"
  197.     cbo(i).ItemData(cbo(i).NewIndex) = 33
  198.     cbo(i).AddItem "baseball"
  199.     cbo(i).ItemData(cbo(i).NewIndex) = 44
  200.     cbo(i).AddItem "baseboard"
  201.     cbo(i).ItemData(cbo(i).NewIndex) = 55
  202.     cbo(i).AddItem "cut"
  203.     cbo(i).ItemData(cbo(i).NewIndex) = 66
  204.     cbo(i).AddItem "cutting"
  205.     cbo(i).ItemData(cbo(i).NewIndex) = 77
  206.     cbo(i).AddItem "cardboard"
  207.     cbo(i).ItemData(cbo(i).NewIndex) = 88
  208.     cbo(i).AddItem "cards"
  209.     cbo(i).ItemData(cbo(i).NewIndex) = 99
  210.     cbo(i).ListIndex = 0
  211. cboAuto.AddItem "ardvark"
  212. cboAuto.ItemData(0) = 11
  213. cboAuto.AddItem "apple"
  214. cboAuto.AddItem "august"
  215. cboAuto.AddItem "baseball"
  216. cboAuto.AddItem "baseboard"
  217. cboAuto.AddItem "cut"
  218. cboAuto.AddItem "cutting"
  219. cboAuto.AddItem "cardboard"
  220. cboAuto.AddItem "cards"
  221. cboAuto.ListIndex = 0
  222. End Sub
  223.